object Form2: TForm2 Left = 256 Top = 218 Width = 422 Height = 393 Caption = 'Form2' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object PageControl1: TPageControl Left = 0 Top = 0 Width = 414 Height = 359 ActivePage = TabSheet1 Align = alClient TabOrder = 0 object TabSheet1: TTabSheet Caption = 'PicDataSet' object DBGrid1: TDBGrid Left = 0 Top = 0 Width = 406 Height = 331 Align = alClient DataSource = Form1.PicDataSource Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'Drive' Visible = True end item Expanded = False FieldName = 'FileName' Visible = True end item Expanded = False FieldName = 'Path' Visible = True end item Expanded = False FieldName = 'RealWidth' Visible = True end item Expanded = False FieldName = 'RealHeight' Visible = True end item Expanded = False FieldName = 'SampleWidth' Visible = True end item Expanded = False FieldName = 'StartPos' Visible = True end item Expanded = False FieldName = 'SampleHeight' Visible = True end item Expanded = False FieldName = 'Size' Visible = True end item Expanded = False FieldName = 'Comment' Visible = True end item Expanded = False FieldName = 'Subject' Visible = True end item Expanded = False FieldName = 'DateTime' Visible = True end item Expanded = False FieldName = 'FileID' Visible = True end item Expanded = False FieldName = 'RealSize' Visible = True end item Expanded = False FieldName = 'Year' Visible = True end item Expanded = False FieldName = 'Month' Visible = True end item Expanded = False FieldName = 'Day' Visible = True end item Expanded = False FieldName = 'Test' Visible = True end item Expanded = False FieldName = 'IconPos' Visible = True end item Expanded = False FieldName = 'Private' Visible = True end item Expanded = False FieldName = 'IconMax' Visible = True end item Expanded = False FieldName = 'IconSize' Visible = True end item Expanded = False FieldName = 'EXIF_PhotoDate' Visible = True end item Expanded = False FieldName = 'EXIF_Model' Visible = True end item Expanded = False FieldName = 'EXIF_Exposure' Visible = True end item Expanded = False FieldName = 'EXIF_FocalLength' Visible = True end item Expanded = False FieldName = 'EXIF_FNumber' Visible = True end item Expanded = False FieldName = 'EXIF_ISO' Visible = True end item Expanded = False FieldName = 'EXIF_Flash' Visible = True end item Expanded = False FieldName = 'EXIF_Exists' Visible = True end item Expanded = False FieldName = 'CatNum' Visible = True end item Expanded = False FieldName = 'PersNum' Visible = True end item Expanded = False FieldName = 'EXIF_DescPosition' Visible = True end item Expanded = False FieldName = 'EXIF_DescSize' Visible = True end item Expanded = False FieldName = 'Rate' Visible = True end> end end object TabSheet2: TTabSheet Caption = 'DriveDataSet' ImageIndex = 1 object DBGrid2: TDBGrid Left = 0 Top = 0 Width = 406 Height = 331 Align = alClient DataSource = Form1.DriveDataSource TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'Serial' Width = 100 Visible = True end item Expanded = False FieldName = 'VolumeName' Width = 100 Visible = True end item Expanded = False FieldName = 'Letter' Width = 10 Visible = True end item Expanded = False FieldName = 'DriveType' Width = 10 Visible = True end item Expanded = False FieldName = 'Comment' Width = 200 Visible = True end> end end object TabSheet3: TTabSheet Caption = 'CatDataSet' ImageIndex = 2 object DBGrid3: TDBGrid Left = 0 Top = 0 Width = 406 Height = 331 Align = alClient DataSource = Form1.CatDataSource TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'CatID' Visible = True end item Expanded = False FieldName = 'Category' Visible = True end item Expanded = False FieldName = 'FileID' Visible = True end item Expanded = False FieldName = 'Comment' Visible = True end> end end object TabSheet4: TTabSheet Caption = 'ConDataSet' ImageIndex = 3 object DBGrid4: TDBGrid Left = 0 Top = 0 Width = 406 Height = 331 Align = alClient DataSource = Form1.ConDataSource TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end end object TabSheet5: TTabSheet Caption = 'PersonDataSet' ImageIndex = 4 object DBGrid5: TDBGrid Left = 0 Top = 0 Width = 406 Height = 331 Align = alClient DataSource = Form1.PersonDataSource TabOrder = 0 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] end end end end